home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / patch / phonepak_25_1.lha / PhonePak_2.5 / rexxNoFax.ppak < prev    next >
Encoding:
Text File  |  1994-05-18  |  1.2 KB  |  32 lines
  1. /************************************************************************/
  2. /* This is a simple script to demonstrate the use of an ARexx menu host.*/
  3. /* First, open the demo system on the PhonePak Switchboard and set the  */
  4. /* ARexx menu host to "MenuPort" using the System/Set ARexx Menu Host   */
  5. /* menu item.  Close the Switchboard, choosing the Save option of the   */
  6. /* "Save Changes" requester.  Then, run this program (rx NoFax.ppak) and*/
  7. /* use local access mode to start the demo system.  Pressing #8 will    */
  8. /* give you an error message, thereby preventing faxes from being       */
  9. /* received.  Of course, if you really wanted to disable fax reception, */
  10. /* you would also have to turn AUTOFAXX off in LineMan.                 */
  11. /************************************************************************/
  12.  
  13. addlib("libs:rexxsupport.library",0,-30,0)
  14. menuport = openport('MenuPort')
  15.  
  16. do forever
  17.     call waitpkt('MenuPort')
  18.     packet = getpkt('MenuPort')
  19.     if packet = null() then
  20.         iterate
  21.  
  22.     arg = getarg(packet,0)
  23.  
  24.     parse var arg menu line mailbox entry
  25.  
  26.     if menu = MESSAGEEDIT & entry = 8 then
  27.         call reply(packet,2)
  28.     else
  29.         call reply(packet,0)
  30.  
  31.     end
  32.